home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgs.dir / Internal_10_grass.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  491 b   |  27 lines
  1. property meSprite, moveAnt
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   meSprite = sprite(me.spriteNum)
  6.   gmObject.reportGrass(me.spriteNum)
  7.   setSpeed(me)
  8. end
  9.  
  10. on setSpeed me
  11.   speed = gmObject.speed
  12.   if speed = 0 then
  13.     moveAnt = point(0, 0)
  14.   else
  15.     moveAnt = point(-3, 6) + (point(-2, 4) * speed)
  16.   end if
  17. end
  18.  
  19. on exitFrame me
  20.   if meSprite.locV < 550 then
  21.     meSprite.loc = meSprite.loc + moveAnt
  22.   else
  23.     startPos = point(random(470) + 320, 0)
  24.     meSprite.loc = startPos
  25.   end if
  26. end
  27.